object fCaixaFechamento: TfCaixaFechamento
  Left = 570
  Top = 312
  BorderStyle = bsDialog
  Caption = 'Fechamento Di'#225'rio'
  ClientHeight = 124
  ClientWidth = 328
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 95
    Height = 13
    Caption = 'Movimento Atual'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 8
    Top = 64
    Width = 97
    Height = 13
    Caption = 'Pr'#243'xima Abertura'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object SpeedButton1: TSpeedButton
    Left = 160
    Top = 8
    Width = 161
    Height = 49
    Caption = 'Voltar Fechamento'
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 160
    Top = 64
    Width = 161
    Height = 49
    Caption = 'Fechar Caixa'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = SpeedButton2Click
  end
  object dbMovimentoAtual: TDBDateEdit
    Left = 8
    Top = 24
    Width = 145
    Height = 27
    DataField = 'PROXIMA_ABERTURA'
    DataSource = dsFechamento
    ReadOnly = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    NumGlyphs = 2
    ParentFont = False
    TabOrder = 1
  end
  object dbProximaAbertura: TDBDateEdit
    Left = 8
    Top = 80
    Width = 145
    Height = 27
    DataField = 'PROXIMA_ABERTURA'
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    NumGlyphs = 2
    ParentFont = False
    TabOrder = 0
  end
  object Fechamento: TIBOQuery
    Params = <>
    DatabaseName = 'C:\Delphi7\Integrado\Dados\BANCO.GDB'
    DeleteSQL.Strings = (
      'DELETE FROM CAIXA_FECHAMENTO'
      'WHERE'
      '   CODIGO = :OLD_CODIGO')
    EditSQL.Strings = (
      'UPDATE CAIXA_FECHAMENTO SET'
      '   CODIGO = :CODIGO, /*PK*/'
      '   CAIXA = :CAIXA,'
      '   DATA_MOVIMENTO = :DATA_MOVIMENTO,'
      '   SALDO_CREDITO = :SALDO_CREDITO,'
      '   SALDO_DEBITO = :SALDO_DEBITO,'
      '   PROXIMA_ABERTURA = :PROXIMA_ABERTURA'
      'WHERE'
      '   CODIGO = :OLD_CODIGO')
    IB_Connection = dm.base
    InsertSQL.Strings = (
      'INSERT INTO CAIXA_FECHAMENTO('
      '   CAIXA,'
      '   DATA_MOVIMENTO,'
      '   SALDO_CREDITO,'
      '   SALDO_DEBITO,'
      '   PROXIMA_ABERTURA)'
      'VALUES ('
      '   :CAIXA,'
      '   :DATA_MOVIMENTO,'
      '   :SALDO_CREDITO,'
      '   :SALDO_DEBITO,'
      '   :PROXIMA_ABERTURA)')
    RecordCountAccurate = True
    SQL.Strings = (
      'select * from caixa_fechamento')
    FieldOptions = []
    Left = 112
    Top = 64
    object FechamentoCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Required = True
    end
    object FechamentoCAIXA: TIntegerField
      FieldName = 'CAIXA'
    end
    object FechamentoDATA_MOVIMENTO: TDateField
      FieldName = 'DATA_MOVIMENTO'
    end
    object FechamentoPROXIMA_ABERTURA: TDateField
      FieldName = 'PROXIMA_ABERTURA'
    end
    object FechamentoSALDO_CREDITO: TBCDField
      FieldName = 'SALDO_CREDITO'
      Size = 2
    end
    object FechamentoSALDO_DEBITO: TBCDField
      FieldName = 'SALDO_DEBITO'
      Size = 2
    end
  end
  object dsFechamento: TDataSource
    DataSet = dm.qryFechamento
    Left = 80
    Top = 24
  end
  object DataSource1: TDataSource
    DataSet = Fechamento
    Left = 120
    Top = 24
  end
end
